home *** CD-ROM | disk | FTP | other *** search
- on mouseDown me
- set mousePosition to the mouseV
- set indicatorPosition to sendAllSprites(#getIndicatorPosition)
- case 1 of
- (indicatorPosition > mousePosition):
- set direction to #up
- (indicatorPosition < mousePosition):
- set direction to #down
- (indicatorPosition = mousePosition):
- exit
- end case
- sendAllSprites(#scrollText, direction, #page)
- end
-